xx <- seq(12, by=9, length.out = 17)
plot(xx %% 17, pch=15, col=rainbow(3), cex=c(1,2,3))
grid()
